library(RGtk2)

fn_btn_1 <-function(button,user.data){
}

fn_btn_2 <-function(button,user.data){
}


fenetre = gtkWindow()
fenetre$title="VG11K"
superpanel = gtkVBoxNew(FALSE,8)
frame=gtkFrameNew()
fenetre$add(frame)
frame$add(superpanel)
# Add button
	the.buttons <- gtkHButtonBoxNew()
	the.buttons$setBorderWidth(5)
	the.buttons$setLayout("spread")
the.buttons$setSpacing(20)
	superpanel$add(the.buttons)
	btn1 = gtkButton("Button1")
	btn2 = gtkButton("Button2")
	gSignalConnect(btn1,"clicked",fn_btn_1)
	gSignalConnect(btn2,"clicked",fn_btn_2)
the.buttons$packStart(btn1,FALSE,FALSE,0)
the.buttons$packStart(btn2,FALSE,FALSE,0)
